home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 111
/
Tiger_Disk_111_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende iiN4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
488b
|
13 lines
2 poke53280,.:poke53281,.:printchr$(147)
4 printchr$(147):fora=8to15:print: ::poke646,a:print"";
6 print"[163][163] [146] [146] [146] [146] [146] [146] [146] [146] [146][163][163]";:next
8 print" [184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197][184][184][146][197][197] [146] ";:
10 printspc(17)"[146]ende[145]";:ifa>30then20
12 v=53248:fori=0to27 :pokev+22,(peek(v+22)and248)or7:print
14 printchr$(20)::forb=13to1step-.8
16 pokev+22,(peek(v+22)and248)orb:forc=ito8:print"[145]":
18 nextc,b,i:a=a+10: gosub8
20 fort=1to750:next
22 poke53280,6:poke53281,14:print"[147] aus lukian's nonsens-werkstatt [157]";
24 fort=1to750:next:sys2048